Improve Tramp's initial warnings

* lisp/net/tramp-cache.el (tramp-dump-connection-properties):
Adapt comment.

* lisp/net/tramp-compat.el (tramp-warning): Declare and use it.

* lisp/net/tramp-message.el (tramp-warning): Declare `indent'.

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 14ee10416abb4d9977552c843770d714c61e014d..71b8cfa67bf3f337119440cbf72c7a502a7af2e6 100644 (file)
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -573,12 +573,11 @@ PROPERTIES is a list of file properties (strings)."
            print-length print-level)
        ;; Remove `tramp-null-hop'.
        (remhash tramp-null-hop cache)
-       ;; Remove temporary data.  If there is the key "login-as", we
-       ;; don't save either, because all other properties might
-       ;; depend on the login name, and we want to give the
-       ;; possibility to use another login name later on.  Key
-       ;; "started" exists for the "ftp" method only, which must not
-       ;; be kept persistent.
+       ;; If there is the key "login-as", we don't save, because all
+       ;; other properties might depend on the login name, and we
+       ;; want to give the possibility to use another login name
+       ;; later on.  Key "started" exists for the "ftp" method only,
+       ;; which must not be kept persistent.
        (maphash
         (lambda (key value)
           (if (and (tramp-file-name-p key) (hash-table-p value)

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index c9629a6f3c9a286b20f1290fc3d07290505a3ed3..c1fb8ceaa809540dbaecc0a0fa088e8a7f598fd9 100644 (file)
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -38,30 +38,34 @@
 (require 'xdg)
 
 (declare-function tramp-error "tramp-message")
+(declare-function tramp-warning "tramp-message")
 (declare-function tramp-tramp-file-p "tramp")
 (defvar tramp-temp-name-prefix)
 
 (defconst tramp-compat-emacs-compiled-version (eval-when-compile emacs-version)
   "The Emacs version used for compilation.")
 
-(unless (= emacs-major-version
-          (car (version-to-list tramp-compat-emacs-compiled-version)))
-  (lwarn 'tramp :warning
-        "Tramp has been compiled with Emacs %s, this is Emacs %s"
-       tramp-compat-emacs-compiled-version emacs-version))
-
-(with-eval-after-load 'docker-tramp
-  (lwarn 'tramp :warning
-        (concat "Package `docker-tramp' has been obsoleted, "
-                "please use integrated package `tramp-container'")))
-(with-eval-after-load 'kubernetes-tramp
-  (lwarn 'tramp :warning
-        (concat "Package `kubernetes-tramp' has been obsoleted, "
-                "please use integrated package `tramp-container'")))
-(with-eval-after-load 'tramp-nspawn
-  (lwarn 'tramp :warning
-        (concat "Package `tramp-nspawn' has been obsoleted, "
-                "please use integrated package `tramp-container'")))
+(with-eval-after-load 'tramp
+  (unless (= emacs-major-version
+            (car (version-to-list tramp-compat-emacs-compiled-version)))
+    (tramp-warning nil
+      "Tramp has been compiled with Emacs %s, this is Emacs %s"
+      tramp-compat-emacs-compiled-version emacs-version))
+
+  (with-eval-after-load 'docker-tramp
+    (tramp-warning nil
+      (concat "Package `docker-tramp' has been obsoleted, "
+             "please use integrated package `tramp-container'")))
+
+  (with-eval-after-load 'kubernetes-tramp
+    (tramp-warning nil
+      (concat "Package `kubernetes-tramp' has been obsoleted, "
+             "please use integrated package `tramp-container'")))
+
+  (with-eval-after-load 'tramp-nspawn
+    (tramp-warning nil
+      (concat "Package `tramp-nspawn' has been obsoleted, "
+             "please use integrated package `tramp-container'"))))
 
 ;; For not existing functions, obsolete functions, or functions with a
 ;; changed argument list, there are compiler warnings.  We want to

diff --git a/lisp/net/tramp-message.el b/lisp/net/tramp-message.el
index 73a0ea9ce2892cf447e817308250e5140f7b8852..5282b00ec51c66bb17e4a0bde7416dbeb3663d73 100644 (file)
--- a/lisp/net/tramp-message.el
+++ b/lisp/net/tramp-message.el
@@ -467,7 +467,7 @@ the resulting error message."
   "Show a warning.
 VEC-OR-PROC identifies the connection to use, remaining arguments passed
 to `tramp-message'."
-  (declare (tramp-suppress-trace t))
+  (declare (indent 1) (tramp-suppress-trace t))
   (let (signal-hook-function)
     (apply 'tramp-message vec-or-proc 2 fmt-string arguments)
     (apply 'lwarn 'tramp :warning fmt-string arguments)))